Admin_TopLink.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_TopLink.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

dim strFileName,sql,rs,LinkId
dim totalPut,CurrentPage,TotalPages,Action
Action=trim(request("Action"))
LinkId=Trim(Request("LinkId"))
strFileName="Admin_TopLink.asp?"

currentPage = Cint(Netout.CheckStr(request.QueryString("page"),1))

if LinkId<>"" then
	if Action="Del" then
		conn.execute "Delete From Nt_TopLink Where LinkId=" & CLng(LinkId)
	end if
end if
%>
<html>
<head>
<title>友情链接管理</title>
<script LANGUAGE="javascript">
function Check() {
	if (document.AddLink.LinkName.value==""){
		alert("请输入连接名称！")
		document.AddLink.LinkName.focus()
		return false
	}
	if (document.AddLink.LinkUrl.value==""){
		alert("请输入连接地址！")
		document.AddLink.LinkUrl.focus()
		return false
	}
	if (document.AddLink.LinkUrl.value=="http://"){
		alert("请输入连接地址！")
		document.AddLink.LinkUrl.focus()
		return false
	}
}
function ConfirmDel(){
	if(confirm("确定要删除此友情链接站点吗？"))
		return true;
	else
		return false;
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead
Title="友 情 链 接 管 理"
Link="<a href='Admin_Images.asp' class='black'>管理图片</a> | <a href='Admin_TopLink.asp?Action=Add' class='black'>添加链接</a>&nbsp;|&nbsp;<a href='Admin_TopLink.asp' class='black'>所有链接</a>"
Behind.WriteHtmlTop Title,Link

if Action="Add" then
	call Add()
elseif Action="SaveAdd" then
	call SaveAdd()
elseif Action="Modify" then
	call Modify()
elseif Action="SaveModify" then
	call SaveModify()
else
	call main()
end if
if FoundErr=True then
	Behind.WriteErrMsg(ErrMsg)
	set Netout=nothing
end if

sub main()
	dim rs
	sql="select * From Nt_TopLink order by LinkId desc"
	With Behind
		.MaxPerPage	 = 18
		.TopPage	 = False
		.BottomPage	 = True
		.SqlRecord	 = sql
		.InitText	 = "个顶部连接"
		.strFileName = strFileName
		.ShowRecord CurrentPage
		.WriteHtmlEnd
	End With
end sub

sub showContent(MaxPerPage)
   	dim i
    i=0
%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
  <tr class="tdbg1"> 
    <td width="38" align="center" class="tdbg1"><b>ID</b></td>
    <td width="201" align="center" class="tdbg1"><b>连接名称</b></td>
    <td width="321" align="center" class="tdbg1"><b>连接地址</b></td>
    <td width="90" align="center" class="tdbg1"><b>窗口打开方式</b></td>
    <td width="70" align="center" class="tdbg1"><b>操作</b></td>
  </tr>
  <%
	do while not rs.eof
	%>
	  <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEBEB'"> 
		<td width="38"><%=rs("LinkID")%></td>
		<td width="201"><a href="<%=rs("LinkUrl")%>" target='blank' title="<%=rs("LinkUrl")%>" class='black'><%=rs("LinkName")%></a></td>
		<td width="321" align="center"> <%=Rs("LinkUrl")%> </td>
		<td width="90"><%=Rs("target")%></td>
    	<td width="70" align="center"><%
	  response.write "<a href='Admin_TopLink.asp?Action=Modify&LinkId=" & rs("LinkId") & "' class='black'>修改</a> | "
      response.write "<a href='Admin_TopLink.asp?Action=Del&LinkId=" & rs("LinkId") & "' onclick='return ConfirmDel();' class='black'>删除</a>"
	  %></td>
  </tr>
  <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
</table>
<%
end sub

sub Add()
%>
<form method="post" name="AddLink" onSubmit="return Check()" action="Admin_TopLink.asp">
  <table border="0" cellpadding="2" cellspacing="1" align="center" width="100%" class="border">
    <tr class="title"> 
      <td colspan="2" align="center" class="tdbg1"><strong>添加顶部连接</strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25" valign="middle"><strong>连接名称：</strong></td>
      <td width="378" height="25"> <input name="LinkName" id="LinkName" title="这里请输入连接名称，最多为20个汉字" size="30"  maxlength="20"> 
        <font color="#FF0000">&nbsp; </font></td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>连接地址：</strong></td>
      <td height="25"> <input name="LinkUrl" type="text" id="LinkUrl" title="这里请输入连接地址，最多为50个字符，前面必须带http://" size="30"  maxlength="100"> 
      </td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25"><strong>窗口打开方式：</strong></td>
      <td height="25">        
        <select name="target" id="target">
          <option value="_blank">_blank</option>
          <option value="_parent">_parent</option>
          <option value="_self">_self</option>
          <option value="_top">_top</option>
        </select>
      </td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveAdd"> 
        <input type="submit" value=" 确 定 " name="cmdOk"> &nbsp; <input type="reset" value=" 重 填 " name="cmdReset"> 
      </td>
    </tr>
  </table>
</form>
<%
end sub

sub Modify()
	if LinkId="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定顶部连接ID</li>"
		exit sub
	else
		LinkId=Clng(LinkId)
	end if
	Set Rs = Server.CreateObject("Adodb.RecordSet")
	Rs.open "select * From Nt_TopLink where LinkId=" & LinkId,conn,1,3
	if Rs.bof and Rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到站点！</li>"
		Rs.close
		set Rs=nothing
		exit sub
	end if

%>
<form method="post" name="AddLink" onSubmit="return Check()" action="Admin_TopLink.asp">
  <table border="0" cellpadding="2" cellspacing="1" align="center" width="100%" class="border">
    <tr class="title"> 
      <td colspan="2" align="center" class="tdbg1"><strong>修改<strong>顶部连接</strong></strong></td>
    </tr>
    <tr class="tdbg"> 
      <td width="152" height="25" valign="middle"><strong>连接名称：</strong></td>
      <td width="381" height="25"> <input name="LinkName" id="LinkName" title="这里请输入连接名称，最多为20个汉字" value="<%=Rs("LinkName")%>" size="30"  maxlength="20"> 
        <font color="#FF0000">&nbsp; </font></td>
    </tr>
    <tr class="tdbg">
      <td width="152"><strong>连接地址：</strong></td> 
      <td height="25"> <input name="LinkUrl" type="text" id="LinkUrl" title="这里请输入连接地址，最多为50个字符，前面必须带http://"  value="<%=Rs("LinkUrl")%>" size="30"  maxlength="100"> 
        </td>
    </tr>
    <tr class="tdbg">
      <td width="152"><strong>窗口打开方式：</strong></td> 
      <td height="25">
        <select name="target" id="target">
          <option<%=Selected(Rs("target"),"_blank")%>>_blank</option>
          <option<%=Selected(Rs("target"),"_parent")%>>_parent</option>
          <option<%=Selected(Rs("target"),"_self")%>>_self</option>
          <option<%=Selected(Rs("target"),"_top")%>>_top</option>
        </select>
	  </td>
    </tr>
    <tr class="tdbg"> 
      <td height="40" colspan="2" align="center"><input name="LinkId" type="hidden" id="LinkId" value="<%=Rs("LinkId")%>"> 
        <input name="Action" type="hidden" id="Action" value="SaveModify"> <input type="submit" value=" 确 定 " name="cmdOk"> 
      </td>
    </tr>
  </table>
</form>
<%
	Rs.close
	set Rs=nothing
end sub

sub SaveAdd()
	dim LinkName,LinkUrl,Target
	LinkName=trim(request("LinkName"))
	LinkUrl=trim(request("LinkUrl"))
	Target=trim(request("target"))
	if LinkName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>连接名称不能为空！</li>"
	end if
	if LinkUrl="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>连接地址不能为空！</li>"
	end if
	if FoundErr<>True then
		dim sqlLink
		sqlLink="select top 1 * From Nt_TopLink where LinkName='" & LinkName & "' and LinkUrl='" & LinkUrl & "'"
		set Rs=Server.CreateObject("Adodb.RecordSet")
		Rs.open sqlLink,conn,1,3
		if not (Rs.bof and Rs.eof) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>您要添加的连接已经存在！</li>"
		else
			Rs.Addnew
			Rs("LinkName")=LinkName
			Rs("LinkUrl")=LinkUrl
			Rs("target")=Target
			Rs.update
			Rs.close
			set Rs=nothing
			Set Netout = Nothing
			Response.Redirect "Admin_TopLink.asp"
		end if
		Rs.close
		set Rs=nothing
	end if
end sub

sub SaveModify()
	if LinkId="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定连接ID</li>"
		exit sub
	else
		LinkId=Clng(LinkId)
	end if
	dim LinkName,LinkUrl,Target
	LinkName=trim(request("LinkName"))
	LinkUrl=trim(request("LinkUrl"))
	Target=trim(request("target"))
	if LinkName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>连接名称不能为空！</li>"
	end if
	if LinkUrl="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>连接地址不能为空！</li>"
	end if
	if FoundErr=True then
		exit sub
	end if

	set Rs=Server.CreateObject("Adodb.RecordSet")
	Rs.open "select * From Nt_TopLink where LinkId=" & LinkId,conn,1,3
	if Rs.bof and Rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到连接！</li>"
	Else
		Rs("LinkName")=LinkName
		Rs("LinkUrl")=LinkUrl
		Rs("target")=Target
		Rs.update
		Rs.close
		Set Rs = Nothing
		Set Netout = Nothing
		Response.Redirect "Admin_TopLink.asp"
	End If
	Rs.close
	Set Rs = Nothing
End Sub
%>